vLA = {vX[t], vY[t], vZ[t]}

om = {omX, omY, omZ}

vLA' = D[vLA, t]

TableForm[dob = Cross[om, vLA]]

TableForm[dpdLA = m*(vLA' + dob)]